#!/usr/bin/env perl

#Граббер для Дофус вики. Не руками же всё забивать :)
#Начальная версия, проверка технологии. Ждем объекты и базу, чтобы залить все итемы со статами.
#Использование: ./grab.pl Shovel #Ну или чего другое
#Для установки фреймворка Mojo читай README в корне проекта.

use strict;
use Mojo::Client;
use Mojo::DOM;
  
my $client = Mojo::Client->new;
my $dom = Mojo::DOM->new;

$client->max_redirects(3);
$client->user_agent('Mozilla/5.0 (X11; U; Linux i686; ru; rv:1.9.1.16) Gecko/20101210 Iceweasel/3.5.16 (like Firefox/3.5.16)');

my $wiki = "http://dofuswiki.wikia.com/wiki/";

my $itemtype = shift;
$itemtype or die "Usage: Give me Type of item as argumen, please.\nExample: ./grab.pl Shovel\n"; 


print "So, I try to grab list of $itemtype from Wiki....\n\n";
$dom = $client->get($wiki.$itemtype)->res->dom->at('table[class="wikitable sortable"]');

for my $e ($dom->find('tr[valign="top"]')->each) {
	print $e->at('td > p > a')->text;
	
	print "\n";		
}

1;




